home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
editor
/
par.zip
/
EXAMPL05.POM
< prev
next >
Wrap
Text File
|
1997-06-27
|
653b
|
27 lines
;
; Divide up the input line because it is more than 255 characters wide
;
SPLIT 005-100 102-168 170-300
;
; Extract the fields
;
IF LineNum = "" THEN Name = $FLUPC[ 1 35]
IF LineNum = "1" THEN Phone = $FLINE[53 67]
IF LineNum = "2" THEN Descrip = $FLINE[ 1 76]
;
; Remove surrounding spaces
;
TRIM Name "B" " "
TRIM Phone "B" " "
TRIM Descrip "B" " "
;
; Build the line
;
OUT LineNum = "" |"{Name}",
OUT LineNum = "1" |"{Phone}",
OUTEND LineNum = "2" |"{Descrip}"
;
; Reset line counter
;
IF LineNum = "2" THEN LineNum = "" ELSE LineNum+